home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / usrcomm.g < prev   
Encoding:
Gui4CLI script  |  1998-06-24  |  652 b   |  40 lines
  1. G4C
  2.  
  3. winbig -1 -1 400 60 "User Commands"
  4. winsmall -1 -1 400 60
  5. wintype 11110001
  6. winout nil:
  7. varpath "climaster/*/routine.g"
  8.  
  9. xonload
  10. guiopen usrcomm.g
  11.  
  12. xonopen
  13. lvuse usrcomm.g 1
  14. ifexists file cmst:config/user.com
  15.     lvchange cmst:config/user.com
  16.     lvsort asc
  17. endif
  18.  
  19. xonclose
  20. lvuse climaster $cm_srce
  21. guiquit usrcomm.g
  22.  
  23. xonrmb
  24. guiclose usrcomm.g
  25.  
  26. xlistview 0 0 0 0 "" cm_ucom "" 0 txt
  27. gadid 1
  28. lvuse climaster $cm_srce
  29. cutvar cm_ucom cut word 1 cm_run
  30. if $cm_run == "[cli]"
  31.     cli '$cm_ucom'
  32. elseif $cm_run == "[run]"
  33.     run '$cm_ucom'
  34. elseif $cm_run == "[gui]"
  35.     guiload $cm_ucom
  36. endif
  37. guiclose usrcomm.g
  38.  
  39. ; -------------------------------------
  40.